# 函数

#内置步长 seq()
print( seq(33,42));

#平均数函数
print(mean(11:46));

#求和函数
print( sum(1:100));

#自定义函数
new.function <- function( a ){
  for( i in 1:a){
    b<-i^2;
    print(b);
  }
}
new.function( 10 );

# 无参数函数
new.power = function( ){
  for( i in 1:5){
    b<-i^2
    print(b)
  }
}
new.power();

# 使用参数值
new.params <- function(a,b,c){
  result <- (a + b) / c
  print( result );
  
}
a<-6;
b<-4;
c<-2
new.params(a,b,c);
new.params(a=10,b=12,c=11);

# 默认值函数
new.defaultValue <- function(a=4,b=8,c=3){
  
  result <- (a+b)/3;
  print( result );
  
}
new.defaultValue();

